sub samcoupejdraw(txdt as integer,tydt as integer):
  asm
    ;call $013C
    end asm
  end sub
'$013C - JDRAW - b (or hl, if mode=3 and fatpix=0)=x, c=y, d= direction, e=direction
